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IDENTIFICATION 
PRODUCT CODE: AC-81008-MC 
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MAINTAINER: VIAGNOSTIC ENGINEERING 
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SEQ 0001 


TABLE OF CONTENTS 


— 
° 


ABSTRACT 
REQUIREMENTS 
EQUIPMENT 

STORAGE 

LOADING PROCEDURE 


STARTING PROCEDURE 
PROGRAM START 


= 
-9Oo Oo NO OO 


SOF TWARE SWITCH REGISTER 
CONTROL 


ERROR REPORTING 

MISCELLANEOUS 

MINC-11 BUS ADDRESS MODIFICATION 
—oitg ah NOTES 


POWER FAIL 
MULTIPLE MINC=11 OPTIUN INTERFACE 
RESTRICTIONS 


EXECUTION TIME 
EXAMPLE REPORT 
LISTING 


Co CO MNFWNRHO CO oO 


2 
2 
2 
3 
4 
4 
5 
5 
6. 
7 
7 
7 
7 
7 
? 
8. 
9 





1.0 ABSTRACT 


pass "w", ep et SIZING FOR THE MNCAG (PREAMP) WHICH IS 
AN OPT TO THE MNCAM (MUX) CAD (A/D). 


ADDRESSES. TWO ADDITIONAL REPORTS ARE ‘ex IF Kad 

i 1S THE ADDRESS USAGE MAP WHICH IS USEFUL IN DETECTING 
A_ INCORRECT ADDRESS SWITCH SETTING. TOTAL PROGRAM CONTROL IS 

<The THRU THE CONSOLE TERMINAL VIA THE PROVISIONS OF 


2.0 REQUIREMENTS 


2.1 EQUIPMENT 
1. PDP11/03 COMPUTER OR LSI-11_PROCESSOR 
2. DLV11 WITH I/O TERMINAL (LA36, VT100, ETC.) 
3. MINC-11 SYSTEM 
2.2 STORAGE 
THE PROGRAM USES THE LOWER 4K OF MEMORY. 


3.0 LOADING PROCEDURE <XXDP> 





1. ENSURE THAT THE DIAGNOSTIC LOAD MEDIA IS INSTALLED IN DRIVE 0. 

2. BOOT THE MEDIA BY TYPING ‘173000G’’ IF IN THE ODT MICRO-CODE 
STATE OR Me THE POWER ‘ON-OFF'’ SWITCH. 

3. UPON SUCCESSFUL cg be OF THE LOAD MEDIA, THE XXDP MONITOR 
WILL IDENTIFY ITSELF AND INFORM THE OPERATOR OF THE OPERATING 
OPTIONS THAT MAYBE SELECTED. 

4. THE OPERATOR SHOULD TYPE *R VMNF??°" FOLLOWED BY A ‘RETURN’ 
THE XXDP MONITOR WILL LOAD THE PROGRAM INTO MEMORY AND START 
THE PROGRAM AT LOCATION 200. 


4.0 STARTING PROCEDURE 





1. THE PROGRAM WILL RESPOND BY TYPING THE PROGRAM TITLE. 

2. THE PROGRAM WILL NOW ASK IF THE OPERATOR WANTS THE REPORT 
OF THE MODES OF THE MNCAD (A/D) CHANNELS. 

3. THE PROGRAM WILL NOW ASK IF THE OPERATOR WANTS THE REPORT 
OF THE ADDRESS USAGE MAP. 

4. THE PROGRAM WILL THEN SIZE THE MINC-11 SYSTEM AND REPORT 
THE DEVICE BUS AND VECTOR ADDRESSES AND SELECTED REPORTS. 


4.1 PROGRAM START 


200 STARTING ADDRESS OF THE PROGRAM 





SOFTWARE SWITCH REGISTER 


PROGRAM CONTROL 

THE SIZING MAYBE STOPPED BY TYPING THE ‘‘CONTROL @ C'' 
KEYS. THIS OPERATION WILL STOP THE PROGRAM AND ENABLE 
THE OPERATOR TO SELECT DIFFERENT PROGRAM REPORT'S. 


ERROR REPORTING 


NONE, NO ERROR MESSAGES ARE REPORTED. 
MISCELLANEOUS 


MINC-11 BUS ADDRESS MODIFICATION 
MODIFY LOCATION 'SBASE" (LOC. 1240) IF BASE BUS ADDRESS IS NOT 171000. 


XXDP/APT NOTES 


THIS PROGRAM IS CHAINABLE + XXDP (REQUIRES 8K OR MORE) 

WHEN RUN IN "'CHAIN'' MODE, THE PROGRAM WILL REQUIRE THE OPERATOR 
TO PERFORM INITIAL SETUP ee are THE. SIZER PROGRAM SHOULD 
NOT BE INCLUDED IN A ‘‘CHAIN'’ THAT LOOPS TO THE STARTING FILE. 


THIS PROGRAM DOES SUPPORT ‘‘APT’' BUT HAS NOT BEEN RUN UNDER IT 
POWER FAIL 
A POWER bo WILL CAUSE A RESTART MESSAGE ON POWER UP AT 
WHICH TIME THE PROGRAM IS RESTARTED (ONLY ON At a WITH 
NON-VOLATILE MEMORY AND WITH APPROPRIATE HARDWARE ) 
MULTIPLE MINC-11 OPTION INTERFACE TESTING 
THIS PROGRAM DOES *'AUTO-SIZE*’ THE NUMBER OF MINC-11 OPTIONS CONNECTED. 
THE PROGRAM WILL SIZE SEQUENTIALLY UP TO: 
4 MNCAD (A/D) 'S 
8 MNCKW (CLOCK) 'S 
8 MNCAA (D/A)'S 
8 MNCDO (DIGITAL OUT)'S 
8 MNCDI (DIGITAL IN)'S 
EACH MINC-11 OPTION MUST BE CONFIGURED WITH CONTIGUOUS BUS ADDRESSES. 
RESTRICTIONS 
ALL USER CONNECTIONS MUST BE REMOVED. 


EXECUTION TIME 


DEPENDANT UPON TERMINAL SPEED AND REPORTS SELECTED. 





EXAMPLE REPORT 


A ''TYPICAL'' SIZER REPORT FOR A SYSTEM WITH THE FOLLOWING: 
171020 


73000-173776 
176500=1 76526 U0, AND 2 
177170 RXO1 61 $k SUB-SYSTEM 


177560-177566 CONSOLE TERMINAL 


PARRRASALASALALASE ALAR SS AERA ARS A LARA RASA RSA SRSA SSDS SES 


DO YOU WANT THE a (A/D) CHANNEL MODE REPORT ? 
TYPE ‘'Y'' FOR YES = Y 
DO YOU WANT THE aa Y USAGE MAP —— ? 
TYPE ‘'Y'' FOR YES = 
sMNCAD AT ADDRESS = 171000 VECTOR = 400 
0 - 7 SINGLE ENDED 
oie 


;MNCKW AT ADDRESS 1020 VECTOR = 440 
:MNCAA AT ADDRESS ** DOES NOT EXIST ** 
;MNCDI AT ADDRESS 20 


:MNCDO AT ADDRESS 1260 VECTOR = 340 
# OF ;MNCAD 1 ;MNCKW 1) O=MNCAA 1 OSMNCDI. «61 O=MNCDO 1 


MNC11 MEMORY USAGE MAP (EACH BIT = 2 ADDRESSES) 
ADDR 000/400 100/5 200/600 


176000 0000000000000000 

176400 0000000000000000 1111110000000000 0000000000000000 0000000000000000 
177000 0000000000000000 0000000000000010 0000000000000000 lalalaea'a'e a4 
177400 0000000000000000 0000000000001100 0000000000000000 00000000000000 


END PASS # 1 


ATTACHED 
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BASIC ao 
TRAP CA i. 
ACT11 HOOK 
APT PARAMETER BLOCK 
COMMON TAGS 
APT MAI ~ETABLE 


ABLE 
INITIAL START-UP ,HOUSEKEEPING, AND DIALOGUE 
INITIALIZE THE COMMON TAGS 
TYPE PROGRAM NAME 
END OF PASS ROUTINE 
TTY INPUT ROUTINE 
TYPE ROUTINE 
BINARY TO OCTAL (ASCII) AND TYPE 
CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 
BINARY TO ASCII AND TYPE ROUTINE 
APT COMMUNICATIONS ROUTINE 
TRAP DECODER 
TRAP TABLE 
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10:57 


SEQ 0006 


1 
VMNF ~B MINC-11 OPTION SIZER PROGRAM MACY11 306(1063) 08-AUG-79 10:51 PAGE 1 
08-AUG-79 10:40 


3 


-TITLE MAINDEC-11-CVMNF -B MINC=11 OPTION SIZER PROGRAM 
:*COPYRIGHT (C) 1979 

: *DIGITAL EQUIPMENT CORP. 

aie NARD, MASS. 01754 


! #PROGRAM BY R SHOOP 


i eTHIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 
3s SPACKAGE (MAINDEC-11=DZQAC-C3), JAN 19, 1977. 


* SBTTL BASIC DEFINITIONS 


cae hee OF THE STACK POINTER *** 1100 *** 
SEQUIV EMT ,ERROR ;sBASIC DEFINITION OF ERROR CALL 
-EQUIV IOT,SCOPE 3 sBASIC DEFINITION OF SCOPE CALL 


3 *MISCELLANEOUS DEFINITIONS 
HT= 11 :;CODE FOR ae pry TAB 
:;CODE FOR LINE FEED 
;;CODE FOR CARRIAGE RETURN 
000200 00 ;:CODE FOR CARRIAGE RETURN-LINE FEED 
177776 :sPROCESSOR STATUS WORD 


177774 ::STACK LIMIT REGISTER 
; PROGRAM INTERRUPT REQUEST REGISTER 
; sHARDWARE SWITCH REGISTER 
177570 ; HARDWARE DISPLAY REGISTER 


; *GENERAL PURPOSE REGISTER DEF INITIONS 
RO= 20 NERAL RE 


BLE LLL LLL 


REGISTER 
REGISTER 
NERAL REGISTER 
£3 STACK POINTER 
PROGRAM COUNTER 


z*PRIORITY LEVEL DEFINITIONS 
PRO= 0 ;;PRIOR 


NOAUMSWN HO 


7 PRIORITY LEVEL 
3*'"SWITCH REGISTER’’ SWITCH DEFINITIONS 
ue 1B 


SwW13= 
SW12= 
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BASIC DEFINITIONS 


i a a 8 8) od 2 = ot 2) J) J 
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BIT09,BIT9 
81T08,8178 
B1T07,B1T7 
B1T06,B1T6 
B1T05,B1T5 


B1100,B1T0 


; *BASIC ~. TRAP VECTOR ADDRESSES 
VEC= a7 OUT AND OTHER ERROR 
: RESERVED AND ILLEGAL INSTRUCTIONS 








<s 
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—— 
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‘ 
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VMNF ~B 
08-AUG-79 


LOL LLL PRL LK z 
Mailed cad cbvan-ncracaertabene 
° 
vi 


Nm 
= 


te he ee 
WN EWR 


000200 
37 000200 000137 


10:4 


000200 000002 
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BASIC DEFINITIONS 


BPTVEC= 14 ; ;BREAKPOINT TRAP (BPT) 

IOTVEC= 20 he Te tll TRAP (IOT) **SCOPE** 

PWRVEC= 24 3 :POWER FAIL 

EMTVEC= _30 + sEMULATOR TRAP (EMT) **ERROR** 
""TRAP'' TRAP 


TTY KEYBOARD VECTOR 
64 :;TTY PRINTER VECTOR 
PIROVEC= 240 3 ;PROGRAM INTERRUPT REQUEST VECTOR 
ABASE= ehh 


-=10 
-WORD 104,200,2 ;B EVENT VECTOR 
-SBTTL TRAP CATCHER 


;*ALL UNUSED LOCATIONS FROM 4-776 CONTAIN A ‘',+2°' 
T*AND “JSR PC,RO'' SEQUENCE TO CATCH ILLEGAL INTERRUPTS. 
[*AND INTERRUPTS TO THE WRONG VECTOR. 

: SLOCATION 0 CONTAINS A 0 TO CATCH IMPROPERLY LOADED 
** 


-=200 
JMP BEGIN START ADDRESS 
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CVMNFB.P11 08-AUG-79 10:40 ACT11 HOOKS SEQ 0010 


2 .SBTTL ACT11 HOOKS 

(2) FEAR REEREREERAEEREREEKEREREEEREREREEEAREEAREREREERERREERE 

(1) [HOOKS REQUIRED BY ACT11 

(1) 000204 $SVPC=. SAVE PC 

(1) 000046 =46 

(000046 002644 SENDAD ::1)SET LOC.46 TO ADDRESS OF SENDAD IN .$EOP 
(1) 000052 000000 "WORD 0 ;:2)SET LOC. 532 TO ZERO 

(1) 000204  =$SVPC RESTORE P 

40 001000 -=1000 

a “SBITL APT PARAMETER BLOCK 

(2) J LARA REERERARREREEERRREEERERERERERERERERERREREREEREERERE RHEE 

(1) “SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT 

(2) SL EAA ERE RAKE EEERRARAERERRARAEEREERAREREEEEEERREREEREKE RE 

(1) 001000 .$X=. | ;;SAVE CURRENT LOCATION 

(1) 000024 5294 SET POWER FAIL TO POINT TO START OF PROGRAM 

(1) 000024 000200 30 FOR APT START UP 

(1) 000044 “=44 ; :POINT TO APT INDIRECT ADDRESS PNIR. 

(1) 000044 001000 $APTHDR ::POINT TO APT HEADER BLOC 

(1) 001000 =.$X  ::RESET LOCATION COUNTER 

(2) PITTI TTT TIT IIIT TELE LLL LLL LLL 

(1) <SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 

1) TINTERFACE SPEC. 

(1) 001000 SAPTHD: 

(1) 001000 000000 SHIBTS: .WORD 0 :;TWO HIGH BITS OF 18 BIT MAILBOX ADDR. 

(1) 001002 001164 SMBADR: [WORD $MAIL  ::ADDRESS OF APT MAILBOX (BITS 0-15) 

(1) 001004 002260 STSTM: .WORD 1200. ::RUN TIM OF LONGEST TEST 

(1) 001006 000764 SPASTM: :WORD 500. RUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY) 
(1) 001010 003244 SUNITM: {WORD 1700. ::ADDITIONAL RUN TIME (SFCS) OF A PASS FOR EACH ADDITIONAL UNIT 
(1) 001012 000031 “GORD SETEND=SAAIL YD S;LENGTH MAILBOX=t . ABLE (WORDS) 
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CVMANFB.P11 08-AUG-79 10:40 COMMON TAGS SEQ 0011 
aT -SBTTL COMMON TAGS 
(2) RRA RARE RARER ERE ERE E REE ER REE REE ERR Ee 
(1) *STHIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
Sh + *USED IN THE PROGRAM. 
(1) 001100 -=1100 
(1) 001100 SCMTAG: ; START OF COMMON TAGS 
(1) 001100 0 
(1) 001102 STSTNM: 0 3:CONTAINS THE TEST NUMBER 
(1) 001103 SERFLG: 0 3: CONTAINS ERROR FLAG 
(1) 001104 SICNT: 0 3;CONTAINS SUBTEST ITERATION COUNT 
(1) 001106 SLPADR: 0 $6 TAINS SCOPE LOOP ADDRESS 
(1) 001110 SLPERR: 0 Se TAINS SCOPE RETURN FOR ERRORS 
(1) 001112 SERTTL: 0 3:CONTAINS TOTAL ERRORS DETECTED 
(1) 001114 SITEMB: .BYTE 0 3:CONTAINS ITEM CONTROL BYTE 
(1) 001115 001 SERMAX: .BYTE 1 7 :CONTAINS MAX. ERRORS PER TEST 
(1) 001116 000000 SERRPC: .WORD 0 ;:CONTAINS PC OF LAST ERROR >t et 
(1) 001120 000000 SGDADR: .WORD 0 7:CONTAINS ADDRESS OF ‘GOOD’ DAT 
(1) 001122 000000 $8D «WORD 0 32 CONTAINS ADDRESS OF *BAD' DATA. 
(1) 001124 000000 SGDDAT: .WORD 0 po a INS ‘GOOD DATA 
(1) 001126 000000 SBDDA -WORD 0 ;CONTAINS ‘BAD’ DATA 
(1) 001130 000000 -WORD 0 + RESERVED=-NOT TO BE USED 
(1) 001132 000000 -WORD 0 
(1) 001134 000 SAUTOB: .BYTE 0 7 AUTOMATIC MODE INDICATOR 
(1) 001135 000 SINTAG: .BYTE O 32 INTERRUPT MODE INDICATOR 
(1) 001136 «WORD 0 
(1) 001140 177570 -WORD DSWR 7 ADDRESS OF SWITCH REGISTER 
(1) 001142 177570 DISPLAY’: .WORD DDISP 7 zADDRESS OF DISPLAY REGISTER 
(1) 001144 7560 TKS: 177560 7: TTY KBD STATUS 
(1) 001146 177562 STKB: 177562 77 TTY KBD BUFFER 
(1) 001150 564 $TPS: 177564 Ti TTY PRINTER STATUS REG. ADDRESS 
(1) 001152 177566 STPB: 177566 zz TTY PRINTER BUFFER REG. on ti 
(1) 000 LL: BYTE 0 3 :CONTAINS NULL CHARACTER FOR FILLS 
(1) 001155 002 SFILLS: .BYTE 2 3:CONTAINS # OF fg CHARACTERS REQUIRED 
(1) 001156 012 SFILLC: .BYTE 12 33 INSERT FILL CHARS. AFTER A ‘ EED*’ 
(1) 001157 STPFLG: .BYTE . * 32° TERMINAL AVAILABLE’ FLAG (BIT<07>=0=YES) 
(1) 001160 077 SQUES: .ASCII /?/ $e ION 
(1) 001161 015 SCRLF . <15> 7 CARRIAGE RETURN 
(1) 001162 000012 SLF: -AS <12> FEED 
(2) : ITTITIL IIIT ILLITE LLL LLL LLL LLL 
34 - SBTTL APT MAILBOX-E TABLE 
(3) LLU RRAAARARRRRERERRERERAAN RR ER ARERR EE 
(2) -EVEN 
(2) 001164 SMAIL T MAILBOX 
(2) 001164 000000 SMSGTY: . AMSGTY ‘MESSAGE TYPE CODE 
(2) 001166 000000 SFATAL: .WORD AFATAL ;;FATAL ERROR NUMBER 
(2) 001170 000000 STESTN: .WORD ATESTN ;;TEST NUMBER 
(2) 001172 000000 - WORD ASS ;;PAS 
(2) 001174 000000 SDEVCT: .WORD ADEVCT ;;DEVICE COUNT 
(2) 001176 C0O0000 -WORD AUNIT 3231/0 UNIT NUMBER 
(2) 001200 000000 «WORD AMSGAD ;;MESSAGE ADDRESS 
(2) 001202 000000 St . AMSGLG ;;MESSAGE LENGTH 
(2) 001204 SETABLE: 37;APT ENVIRONMENT TABLE 
(2) 001204 000 SENV: -BYTE AENV +: ENVIRONMENT BYTE 


aE pli ao 
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00000C 
000000 
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T MAILBOX-E TABLE 
SENVM: .BYTE AENVM 
SSWREG: .WORD ASWREG 
SUSWR: .WORD AUSWR 
SCPUOP: .WORD ACPUOP 
** 

7* 
3* 
3* 
-* 

Si: .BYTE AMAMS1 
SMTYP1: .BYTE AMTYP1 
** 

: 
3* 
** 


: ENVIRONMENT MODE BITS 
3-APT SWITCH REGISTER 
: 7 SWITCHES 


:CPU TYPE,OPT 
BITS 1S-115CPU T TYPE 
=01,11/05=02, 11/20=03, 11/40=04,11/45=05 

117962 06; PDQ=07,0=10 

BIT 10=REAL TIME CLOCK 

BIT 9=FLOATING POINT PROCESSOR 

BIT 8=MEMORY MANAGEMENT 

;:HIGH ADDRESS,M.S. BYTE 

oP PE ,BLK#1 

MEM.TYPE BYTE == (HIGH BYTE) 
900 NSEC CORE= 


oo 
;;MEM.LAST ADDRESS ,BLK#2 
3 sHIGH ADDRESS .M.S.BYTE 


33 - TYPE, 

: ;MEM.LAST ADDRESS ,BLK#3 
7:HIGH ADDRESS,M.S.BYTE 
2 7MEM. TYPE. BLKAS 


-LAST ADDRESS ,BLKA4 
3: INTERRUPT VECTORA1 ,BUS PRIORITY#1 
TERRUPT VECTOR#2BUS PRIORITY#2 
; BASE ADDRESS OF EQUIPMENT UNDER TEST 
DEVICE MAP 
7: CONTROLLER DESCRIPTION WORDA1 


SEQ 0012 


E 
5 
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08-AUG-79 10:40 ERROR POINTER TABLE SEQ 0013 
-SBTTL ERROR POINTER TABLE 


:*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 
*THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN 

; *LOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE ih. # {s PERTINENT. 

; *NOTE1: IF SITEMB IS 0 THE ONLY PERTINENT DATA IS (SERRP 

: *NOTE2: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 


:;POINTS TO THE ERROR MESSAGE 
POINTS TO THE DATA HEADER 
:sPOINTS TO THE DATA 
;;POINTS TO THE DATA FORMAT 


4 


a 


Ce te te a ee ee te, ee ee a ee el a 3 
DN et et es Bt oh ot ot a I I 


Www wewvevuvuvuvuuvuvvy . 


SERRTB: 
;NO ERRORS ARE REPORTED 


KWOFF: 20 ;OFFSET FROM $BASE VALUE TO KW ADDRESS 
AAOFF: 60 OFFSET FROM S$BASE VALUE TO AA ADDRESS 
DIOFF: 160 OFFSET FROM $BASE VALUE TO DI ADDRESS 
DOOFF: 260 ;OFFSET FROM $BASE VALUE TO DO ADDRESS 


PROGRAM CREATES THESE ADDRESSES FROM THE VALUE OF SB8ASE PLUS THE OFFSET FOR THAT DEVICE 


g 


EACH UNIT FOUND 


m oOo°oceoo 


= 


MP LOCATIONS 


: ADDRESS VALUE FOR MEMORY USAGE 
S MEMORY USAGE MAP IS WANTED 
iS A/D CHANNEL MODES BE REPORTED 


SHERE BECAUSE OF SYSMAL 


Sooo, Coos 
P*] 





z 
g 
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10:40 INITIAL START-UP ,,HOUSEKEEPING, AND DIALOGUE SEQ 0014 


—— START-UP ,HOUSEKEEPING, AND DIALOGUE 


nh FTALIZE THE COMMON TAGS 
::CLEAR THE COMMON TAGS (S$CMTAG) AREA 
MOV ASCMTAG, RO ::FIRST LOCATION TO BE CLEARED 
CLR (R6)+ : CLEAR MEMORY LOCATION 
CMP WSWR,R6 DONE? 
ison ;:LOOP BACK IF NO 
+:SETUP THE STACK POINTER 
s INITIALIZE A FEW VECTOR 


012737 #$T TRAP ; TRAP_VECTOR FOR TRAP CALLS 
012737 000340 000036 MOV 0 i VEL 7 
013737 MOV SENDCT,SEOPCT  ;;SETUP END-OF -PROGRAM ae ge 
SIZE FOR A errmae IF NOT FOUND OR IT IS 
;:EQUAL TO A ‘1"' TUP FOR A SOFTWARE SWITCH REGISTER. 
013746 000004 MOV @FERRVEC ,-(SP) or SAVE ERROR VECTOR 
:2SET UP ERROR VECTOR 
MDSWR , SWR ;:SETUP FOR A HARDWARE SWICH REGISTER 
MDDISP,DISPLAY ;;AND A HARDWARE DISPLAY REGISTER 
177777 #-1 ,@SWR ee TRY TO REFERENCE HARDWARE SWR 
66$ ; sBRANCH IF NO ne lh me 


:: THE HARDWAR' T=-1 
BR 65$ ;3BRANCH IF NO TIMEOUT 
001436 : #65$, (SP) 72SET UP FOR TRAP RETURN 


001320 : MSWREG, SWR :;POINT TO SOFTWARE SWR 
001322 #DISPREG ,DISPLAY 
000004 (SP)+,@M#ERRVEC ;;RESTORE ERROR VECTOR 


001172 CL. SPASS ;sCLEAR PASS COUNT 

000200 WAPTSIZE ,SENVM se TEST USER SIZE UNDER APT 
7$ YES,USE NON-APT SWITCH 
#SSWREG , SWR < INO, USE APT SWITCH REGISTER 


#5046,$TYPE 
#12746, $TYPE+2 
WSTYPE+12,$TYPE+4 
WRTI STYPE+6 
PC, $TKINT ZINIT THE TKB 
SBASE ,ADBASE = :GET INITIAL BASE 
ADBASE ,KWBASE  :GET KW BASE 
KWOF F ,KWBASE : UPDATE KW ADDRESS 
ADBASE,AABASE :GET AA BAS 
AAOFF,AABASE  : UPDATE AA ADDRESS 
ADBASE,DIBASE :GET DI BASE 
DIOFF BIBASE [UPDATE DI ADDRESS 
ADBASE , D GET D 
[UPDATE DO ADDRESS 
[CLEAR THE UNIT COUNTERS 


33 


NM =|NMNNNINPINININININININNINN 2 2 A PO ew ew 
NN SS SS SS SS SS SS SS rv os 


( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 


BESEEEEEE 





C 
1=CVMNF -8 MINC=11 OPTION ag 34 PROGRAM MACY11 30G(1065) O8=-AUG-79 10:51 PAGE 4 
08-AUG-79 10:40 YPE PROGRAM NAME SEQ 0015 


-SBTTL _TYPE PROGRAM NAME 
TYPE _" — PROGRAM IF -BIRGT ie 


3 


177777 oes 
002644 000042 = 2042 


Q ; sBRANCH IF YES 
001672 ,69$ ii TYPE ASCIZ STRING 
68$ 33GET OVER THE ASCIZ 
<CRLF >AMD-11-CVMNF -B MINC=-11 OPTION SIZER PROGRAM#<CRLF > 


001205 SENVM + CHECK APT MODE? 
BNE LOOP F YES 
CHAIN SCHECK XXDP/ACT MODE? 


1$ BR IF NOT 

, SETMNC ‘Gere avcvad ABOUT SETUP STUFF 

(SP)+,RO ;READ WHATEVER CHARACTER 

LOOP ;RUN TEST WHEN OPER IS READY 
zASK OPERATOR ABOUT A/D MODE 
GET OPER INPUT 


MASK OFF JUNK 
s INIT THE EXPANDED A/D REPORT 
: CHECK | 


NOT 
7SET EXPANDED A/D REPORT 
ASK OPERATOR ABOUT MEMORY USAGE MAP 
GET OPER INPUT 


“MASK OFF JUNK 
INIT THE MEMORY USAGE REPORT 
“CHECK IF "'Y"" 


Wrewvvuvuvuvvernp @ 


Sa etaacasacuranearaeaal 
vw 


;BR IF NOT 
;SET MEMORY USAGE FLAG 


;NOW VERIFY THE MNCAD MODULES 

LOOP: JSR R5,TEST :CHECK THE MNCAD'S 
ADGO sADDRESS OF INTR. STARTUP 
pos 


ADPRI 
4 


ADCNT M OF A/D'S FOUND ON SYSTEM 
NOW VERIFY THE MNCKW MODULES 

JSR R5,TEST ;CHECK THE MNCKW'S 

KWGO sADDRESS OF INTR. STARTUP 

ston 


KWPR I E 
8. # OF KW ON A SYSTEM 
KWCNT Ht OF Kw FOUND ON SYSTEM 


BIKARKAYSSISVRGREVLSSaOVARAFAVISSRIE 


1 
( 
( 
( 
( 
( 
( 
( 
( 
( 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


Mee kW 
Whoo 
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002700 


002700 


002700 


NOW VERIFY THE MNCAA MODULES 
JSR R5,TEST 


AACNT 

NOW VERIFY THE MNCDI MODULES 
JSR RS,TEST 

DIGO :INTR. STARTUP ADDRESS 





YPE PROGRAM 


CHECK _THE MNCAA 


:NO_INTR. S 
AABASE : STARTING AA_ADDRESS 
10 OFFSET TO NEXT UNIT 
AAPRI :AA MESSAGE POINTER 
8 ;MAX. # OF AA ON A SYSTEM 


CHECK THE MNCDI 


DIBASE : STARTING DI_ ADDRESS 
10 OFFSET TO NEXT UNIT 
DIPRI :D1 MESSAGE POINTER 
8. # OF DI ON A SYSTEM 
DICNT :# OF DI FOUND ON SYSTEM 
NOW VERIFY THE MNCDO MODULES 
JSR R5,TEST CHECK THE MNCDO 
DOGO :INTR. STARTUP ADDRESS 
DOBASE STARTING DO ADDRESS 
OFFSET TO NEXT UNIT 
DOPRI ; SSAGZ POINTER 
° . . # OF DO ON A SYSTEM 
DOCNT # OF DO FOUND ON SYSTEM 
;NOW REPORT THE TOTAL COUNT OF EACH MINC-11 MODULE 
TYPE -SCRLF :FRESH LINE 
TYPE eNIPRI TELL THE # 
TYPE -ADPRI 3A/D 
Vv ADCNT ,~(SP) 
TYPOS 
-BYTE 1,0 
TYPE -KWPRI zkW 
V KWCNT ,~(SP) 
TYPOS 
-BYTE 2,0 
TYPE -AAPRI sAA 
V AACNT ,~(SP) 
TYPOS 
BYTE 2,0 
TYPE -DIPRI :DI 
V DICNT,~(SP) 
TYPOS 
BYTE 2,0 
TYPE -DOPRI :b0 
Vv DOCNT ,~(SP) 
TYPOS 
-BYTE 2,0 


:# OF AA FOUND ON SYSTEM 


32 
; 


epee ss 3 


Pononononononononyunn 
ood anh anh acd eed ad a eb od ed 


3 


—— 


1=CVMNF -8 
1 08-AUG-79 10: 


001205 


004205 


000094 


001372 
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40 YPE PROGRAM NAME 


;DETERMINE IF THE MEMORY USAGE MAP SHOULD BE REPORTED 
TSTB VM IF APT 


;BR IF YES 

;TEST IF XXOP 

: F YES 

:TEST IF OPER. ASKED FOR MAP 
‘BR IF YES 
‘BYPASS REPORT 

ZEN SURE ONLY THE 1ST PASS IT'S REPORTED 
; INFORM THE OPER. THE HEADER 

+ SAVE CURRENT BUS TRAP VALUE 

:GET 1ST Agents: TO MAP 

SAND SAVE FOR TYPEOUT 

‘PRIME THE ROTATING POINTER 

: CLEAR TEMP MASK 


;LOAD MAP BLOCK POINTER 
LOAD he has TIMEOUT RETURN 
:TEST THE ADDRESS 


ZENSURE CLEAR CARRY 
:BR IF ae BITS LEFT 
7SAVE_IN MAP BLOCKS 


ATING BIT 
CHECK IF MAP BLOCKS FILLED 
BR IF NOT 


;LOAD MEMORY MAP POINTER 
REPORT ADDRESS 


;OUTPUT BINARY BITS 


UPDATE ADDRESS VALUE 
i TEST wa 


BR IF 
RESTORE BUS TRAP VECTOR 


EOP 
At oo TIME-OUT 


;ADJUST RETURN ADDRESS 


INSERT A SPACE 


ST SEN 
BNE 1$ 
TST a2 
BNE 1$ 
TST F LAGMP 
BNE 2$ 
1$: JMP $EOP 
2$: CLR F LAGMP 
move ERAVEC, (SP) 
MOV 170000 ,RO 
MOV RO. OUTADR 
MOV #8IiT15,R1 
CLR R2 
MOV MADRPOK, 
MOV #4$,,ERRVEC 
3$: TST (ROS 
BIS R1,R2 
ADD #2.RO 
TST (RO) 
BIS R1,R2 
ADD *RO 
ccc 
ROR R1 
BCC 3$ 
MOV R2, (R3)+ 
CLR 
MOV #B81T15.R1 
CMP HADRTOP,R3 
BNE $ 
:NOW REPORT THE MEMORY MAP 
MOV ADRPOK , RO 
S$: TYPE  ,$CRLF 
MOV OUTADR, -(SP) 
TYPOC 
TYPE =, SPACE1 
JSR C,OUTBIN 
JSR PC; OUTBIN 
JSR PC; OUTBIN 
JSR PC. OUTBIN 
ADD #400, OUTADR 
CMP #ADRTOP RO 
BNE 5$ 
MOV (SP) +, ERRVEC 
TYPE SCRLF 
JMP 
:RETURN TO HERE 
4s: ADD #2, ( 
{ SUBROUTINE TO REPORT 179 FORMAT MESSAGES 
OUTBIN (RO) +,-(SP) 
Ty yPBN 
TYPE , SPACE1 
RTS PC 


SEQ 0017 


§ 


va tae ae eatin ate tei Tae Tan at Tat Ee Ean tn a Ee a ee i i ee a i i a a et a ed | 
kk kk ed at Ss A Ot YS SS Ss SS SN 
ae a ee a a a ee a ee ae 


~CVMNF -B Ato -11 OPTION SIZER PROGRAM MACY11 3060106 ) Q8-AUG=79 10:51 PAGE 7 P 
08-AUG-79 10:40 END OF PASS ROUTINE . , SEQ 0018 


-SBTTL END OF PASS ROUTINE 


eer tel tae ieoaek cinaaee ee 
{INCREMENT THE PASS NUMBER ($PASS) 

:*TYPE "END PASS #XXXXX"’ a XXXXX IS A DECIMAL NUMBER) 

;*I1F THERES A 5 ay GO TO IT 

:*IF THERE ISN'T JUMP TO LOOP 


002566 SEOP: 
002566 000240 NOP 
002570 005237 001172 ; INC $PASS INCREMENT THE PASS NUMBER 
002574 042737 100000 001172 BIC #100000, $PASS * DON" T ALLOW A NEG. NUMBER 
002602 005327 DEC (PC) + +: LOOP? 
002604 000001 SEOPCT: .WORD 1 
002606 003022 BGT SDOAGN rYES 
002610 012737 MOV (PC)+,a(PC)+ ; RESTORE COUNTER 
002612 000001 SENDCT: .WORD 1 
002614 002604 SEOPCT 
002616 104401 002663 TYPE , SENDMG zz TYPE "END PASS #"' 
002622 013746 001172 MOV $PASS,-(SP) i7SAVE $PASS FOR TYPEOU 
002626 104405 TYPDS :GO TYPE=-DECIMAL ASCII WITH SIGN 
002630 104401 002660 TYPE , SENULL :: TYPE A NULL CHARACTER 
002634 013700 000042 $GET42: MOV a742,R0 +:GET MONITOR ADDRESS 
002640 001405 BEQ $SDOAGN + BRANCH IF NO MONITOR 
002642 000005 RESET *:CLEAR THE WORLD 

2644 004710 SENDAD: JSR PC, (RO) ::GO TO MONITOR 

6 000240 NOP 72 SAVE ROOM 

002650 000240 NOP 33 
002652 000240 NOP :ACT11 
002654 SDOAGN: 
002654 000137 JMP a(PC)+ : SRETURN 
002656 002062 $RTNAD: .WORD LOOP 
002660 377 377 000 S$ENULL: .BYT. -1,-1,0 ::NULL CHARACTER STRING 
002663 015 0424 12 042116 SENDMG: .ASCIZ <15><12>/END PASS #/ 


002670 050040 051 
000043 


MAINDEC-11=CVMNF-B MINC=11 OPTION SIZER PROGRAM MACY11 306($06 ) (8-AUG-79 10:51 PAGE 8 
CVMNFB.P11 08-AUG-79 10:40 END OF PASS ROUTINE SEQ 0019 
$38 ; SUBROUTINE TO VERIFY THE BASE AND VECTOR ADDRESSES 
258 002700 012537 003222 TEST: MOV (R5)+,67$ :GET INTR. STARTUP ADDRESS 
259 002704 013537~ 001126 MOV scR5)s— SBDDAT GET ADDRESS Fa 
002710 012537 001302 MOV (R5)+,VADR ‘GET ADDRESS OFFSET : 
261 002714 012537 003036 MOV (R5)+.70$ [GET NAME POINTER 
002720 012537 001306 MOV (R5)+, TEMP ‘GET MAX # OF UNITS 
263 002724 013746 000004 MOV @#ERRVEC,=(SP) ;SAVE ERRVEC 
264 002730 005027 001310 CLR XT LEAR COUNTER 
265 “ADDRESS THE DEVICE TO VERIFY IT EXISTS 
266 002734 012737 003140 000004 is: MOV #2$ ,ERRVEC :SET UP TIME-OUT RETURN 
267 002742 005777 176160 TST @$BDDAT ADDRESS THE UNIT 
268 :NOW CAUSE AN INTR. AND FIND THE VECTOR 
269 002746 005037 001304 60$: CLR VECT :CLEAR VECTOR FLAG 
002752 012737 003224 000004 MOV MIOTRD.ERRVEC SET UP INTELL. TRAP RETURN 
271 002760 005737 003222 TST 67$ STEST IF NONE INTR DEVICE 
272 002764 0014614 BEQ 65$ IF NOT EVIC 
273 002766 004737 003306 JSR PC ,FIXVCT “LOAD VECT oR. TRAP 
274 02772 004777 000224 JSR PC. a67$ ‘GO PRIME THE DEVICE 
75 002776 012700 000000 MOV #0,RO [PRIME A COUNTER 
276 003002 005046 CLR -(§P) SLOWER 
277 003004 012746 003012 MOV #66$,-(SP) ‘PS 
278 003010 000002 RT] 
279 003012 005300 66$: DEC RO DELAY 
280 003014 001376 BNE ; SOME 
281 003016 005077 176104 65$: CLR a$BDDAT LONG ENOUGH DELAY 
282 ;REPORT THE ADDRESS AND VECTOR VALUES ON FIRST PASS 
283 003022 005737 001172 TST $PASS CHECK Ir FIRST 
284 003026 001033 BNE 73$ BR IF 
285 003030 104401 001161 TYPE  ,$CRLF + ENSURE NP RESH LINE 
286 003034 104401 TYPE [REPORT THE NAME 
287 003036 000000 70$: O TADDRESS OF MESSAGE POINTER 
288 003040 104401 004147 TYPE ATPRI [TYPE ADDRESS STARTUP 
289 003044 013746 001126 MOV $B8DDAT,-(SP) [GET ADDRESS 
290 003050 104403 TYPOS [REPORT IT 
291 003052 006 001 .BYTE 6,1 
292 54 104401 004165 TYPE  ,VTPRI ;TYPE VECTOR STATUP 
293 005737 001304 TST VECT : CHECH IF INTR OCCURRED 
294 003064 001003 BNE 71$ [BR IF YES 
295 104401 004112 TYPE NOPR I wu OPER. NONE 
296 003072 04 BR 72$ 
297 003074 013746 001304 71$: MOV VECT,-(SP) :GET VECTOR VALUE 
298 003100 104403 TYPOS SREPORT IT 
$9 003102 003 001 .BYTE 3,1 
- SENSE 1F A/D IF $0 CHECK OPERATOR INPUT ABOUT CHANNEL MODE REPORT 
301 003104 005737 001316 72$: ‘TST LAGAD 71S CHANNEL MODE REPORT ENABLED? 
302 003110 001402 BEQ oes ‘BR IF NOT 
303 003112 004737 003620 JSR PC, TCHANL SREPORT THE CONFIGURATION 


MA INDE C-11-CVMNF -8 


CVMNFB.P11 


SeURe 


WNWNNWWN NWN 
— ss SS YS SY YS SS SY YS 
WWONOUSWNR—O 


RNeS 


eee eat aa auaeoenis 


08-AUG-79 


oS 
nS 
oO 


001126 


003172 


003304 
001000 


001304 
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END OF PASS ROUTINE 


73$: 


2$: 


76$: 
4$: 


67$: 


oid pane sl web | HANDLER 
JOTRD: (SP), TRTO 


1$: 
2$: 


BEQ 
ADD 


BR 
; COME HERE UPON 
CMP 


;BUMP THE COUNTER on TEST IF FINISHED? 
INC NBEXT 


i IN CREMENT UNIT COUNTER 
;REACHED MAX? 


TEMP 
4$ ; ;REACHED MAX_NO OF UNIT'S 
VADR , $BDDAT 7GET NEXT UNIT 

1$ 7; TRY NEXT UNIT 

ADDRESS _TIME-OUT 


(SP)+, (SP)+ POP 2 WORDS OFF STACK 
NBEXT “CHECK IF ANY UNITS 

4$ “BR IF SOME 

$PASS TEST IF FIRST PASS 

4$ ‘BR IF NOT FIRST 

708.768 “GET DEVICE MESSAGE POINTER 
: TELL OPER. IT'S NOT THERE 
“NOPRI :TELL OPER. NONE FOUND 
NBEXT.@(R5)* SAVE THE # OF UNITS FOUND 


(SP) +, ERRVEC RESTORE ERRVEC 
ees CLEAR EXPANDED A/D REPORT FLAG 


ADDRESS TO DEVICE PRIMER 


GET ADDRESS 


#4, TRTO zADJUST VALUE 
TRTO,#1000 CHECK IF VECTOR OR FATAL TRAP 
$ ;BR IF VECTOR 


2 : 
— BUS TRAP IN PROGRAM 


TRTO,VECT ;LOAD VECTOR 
@$ADDAT ;CLEAR CURRENT UNIT STATUS 
(SP)+, (SP)+ 


sEXIT 


SEQ 0020 


oo be 11=CVMNF -B 


VMNFB.P1i 08-AUG-79 1 
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001000 


END OF PASS ROUT] 


; SUBROUT INE TO LOAD INTELLIGENT 
FIXVCT #20,R0 
mov #22.R1 
MOV 41560 R2 
CLR a0 
CLR ave 
CLR avi0 
CLR ari2 
1$: CMP #60,RO 
BEQ 3$ 
CMP #100,R0 
BEQ 2$ 
CMP #40,R0 
BEQ 2$ 
CMP #200,R0 
BEOQ 3$ 
CMP #34,R0 
BEQ 2$ 
NOP 
NOP 
NOP 
NOP 
NOP 


MOV R1,(RO)+ 


MOV R2, (RO) + 
CMP (Ri) +, (R1)+ 
CMP RO,#1000 
BNE 1$ 
RTS PC 
2s: CMP (RO) +, (RO)+ 
CMP (R1)+,(R1)+ 
3$: CMP (RO) +. (RO)+ 


CMP (R1)+,(R1)+ 
1$ 


TRAP CATCHER 
;LOAD STARTING ADDRESS 
; LOAD aah ae POINTER 


; CLEAR 2 

i TEST iF TKB VECTOR 

7BR IF Y 

TEST IF LINE INTR. <8 EVENT> 
SBR IF YES 

Tes! ‘= XXDP FLAG VECTOR 
:TEST IF STARTING ADDRESS 

;BR IF YES 


‘TEST IF TRAP VECTOR 
‘BR IF YES 


SEQ 0021 
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391 


003456 
003464 


012777 
40 


052777 
207 


MINC=11 


08-AUG-79 10:40 


000101 


001126 


177777 
000161 
000400 


000102 
004200 


001126 
000003 


000002 
000001 
000100 
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END OF PASS ROUTINE 


175442 


175364 
175356 


175316 


ao ie 
ADGO: 


bIGO: MOV 


TO or THE MNCAD 
#101, a@$BDDAT ENABLE INTR. AND START CONVERSION 


PC sEXIT 
TO PRIME THE MNCKW 
$BDDAT .RO GET ADDR. 
RO MAKE ADDRESS OF CLOCK PRESET BUFFER 
#-1, (RO) LOAD CLOCK PRESET 


#161. a$BDDAT LOAD RATE, INTR ENABLE AND GO 
we1Té, , 9SBDDAT : LOAD MAINT CLOCK 


TO PRIME THE MNCD! 
#102,a$BDDAT LOAD INTR. ENABLE AND MODE 
#4200 ,@SBDDAT : LOAD MAINT. STROBE 


TO PRIME THE MNCDO 
SBDDAT,RO :GET ADDRESS 
#3,RO - :MAKE OUTPUT DATA POINTER 
(RO) TENABLE MAINT. STROBE 
“MAKE HIGH H BYTE STATUS ADDRESS 
#B1T0, (RO) ;MAINT. STROBE 
#8176, aS8DD DAT ; ENABLE INTR. 


SEQ 0022 


MAINDEC-11-CVMNF -8 
CVMNFB.P11 
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104403 


001161 


001126 
000002 


5252 
5246 


—— 
N~N 


004202 


004207 
000003 
007777 
000004 
000100 
000077 


175110 
000002 175102 


END OF PASS ROUTINE 
;SUB-ROUTINE TO TYPE OUT A/D CONFIGURATION 
TCHANL: TYPE 


5$: 


6$: 


7$: 


10$: 


-SCRLF 


ae R2 


3), R1 
@SBDDAT 
a$BDDAT 
3$ 

(R2) ,RO 
, SSPACE 
R1,-(SP) 
2 

0 
,MDASH 
#3,R1 
#7777 RO 
i 
#100,R1 
#77,R1 


R1,-(SP) 


7° 


2232 
S 
s 5 


=B3 8 
o 
» 
— 


BS8S 
4 
a" 
E 
S 
~ 


vN 
O°” 
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s;MAKE CONVERTED VALUE ADDRESS 
ENSURE A/D FLAG IS CLEARED 


;START A_CONVERSION 
WAIT FOR CONVERSION TO FINISH 
GET RESULTS 


*e ) 
3; SUPPRESS CEADING ZEROS 
; TYPE A DASH 


;ADD 3 TO CHANNEL FOR DIFFERENTIAL 
; E END 


OR ENDED 
1S CHANNEL > LAST POSSIBLE CHANNEL 
YES. SET TO LAST CHANNEL 
2 SAVE R1 FOR TYPEOUT 


CHANNEL SINGLE ENDED? 
i TYPE SINGLE ENDED MESSAGE 
33G0 TEST MORE CHANNELS 
[1S CHANNEL DIFFERENTIAL? 
3 AMP 
:TYPE DIFFERENTIAL MESSAGE 
1:60 TEST HANNELS 
: TYPE PREAMP MESSAGE 
iSET CHANNEL TO NEXT SET OF CHANNELS 
7 YES 
[GET CHANNEL 
[PUT CHANNEL NUMBER IN HIGH BYTE 
tSET STATUS ENABLE BIT 


[LOAD INTO A/D STATUS REGISTER 
21S NON-EXSISTENT CHANNEL BIT SET? 


SEQ 0023 


MAINDE C-11-CVMNF -8 MINC=11 OPTION SIZER PROGRAM MACY11 306(106 ) 08-AUG-79 10:51 PAGE 13 
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472 sASCII MESSAGES 

473 020040 os 046 041516 ADPRI: .ASCIZ 

474 004042 0 0 041516 KWPRI: .ASCIZ sMNCKW / 

475 020040 AAPRI: .ASCIZ sMNCAA / 
00004 


/ ;MNCAD / 
/ 
/ 
476 eASCIZ / ;MNCDI / 
/ 
/ 


xB 
™ 


477 DOPRI: .ASCIZ sMNCDO / 
478 -ASCIZ ** DOES NOT EXIST **/ 


eASCIZ = /# OF / 


04210 AT ADDRESS = / 


1 
020123 


042526 i « / VECTOR = / 
036440 


VAVKSESERITS 


BOSS PEER EER EE RESTS 


/ / 
// 

feof 

/ SINGLE ENDED/<200> 
/ DIFFERENTIAL /<200> 


/ PREAMP/<200> 
<200>\DO YOU WANT THE MNCAD (A/D) CHANNEL MODE REPORT ?\ 


She 


020105 
052122 
050131 <200>\ TYPE ‘'Y'' FOR YES = \ 
020042 


EEESS 
ge 
58 


3 


0042 

2 
004 

246 
004 
004 

2 
004 304 
004 
004 
004 
004 
004 
004 
004 
004 
004 


- 


<200>\D0 YOU WANT THE MEMORY USAGE MAP REPORT ?\ 


ape 

RF 
Pesae 
EIRSE 


FEE 
EERE 


TYPE ‘'Y'’ FOR YES = \ 





M 
MAINDEC-11-CVMAF -8 MINC-11 OPTION SIZER PROGRAM MACY11 30601068) O08-AUG-79 10:51 PAGE 13-1 
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004452 1 021131 


MNCMAP: .ASCII <200>\MINC=11 MEMORY USAGE MAP (EACH BIT = 2 ADDRESSES)\<200> 


SONS 


OR 


\ ADDR 000/400 100/500\ 


Boe e eS eeee 
Ea¥SE 


fe 


son tht 


00ce3 
004642 
004650 
004656 
004664 
004667 


200/600 300/700\ 


PLEASE DO THE FOLLOWING:/ 


15,12,12 
/REMOVE THE CUSTOMER CONNECTIONS FROM EACH 'MINC-11'' OPTION/ 


R RKRELLE 


15,12 
\MNCAD (A/D) SET FRONT PANEL SWITCHES TO THE ‘‘TEST’’ POSITION\ 


BS aeeste 
RENNS= 
Oo 


—-O—UW 
— ot ot ot 
VINan 


15,12 
\ANCAG (PREAMP) SET FRONT PANEL SWITCHES TO THE *P’* POSITION\ 





N 
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-—o 


3 
RGR 
BSUS ALA 
—&—Mrvon 


Nm 
—-OOWN NN 


eASCII \MNCKW (CLOCK) PULL OUT "'ST1'' AND *'ST2°’ SWITCHES\ 


nw 

Ww 

By 
RoN0 o> 
OWO-WAan = 


RLRAR 
270 
— 
Sse 
RAVLAGRS 


3 

88 Ww 
3 

= 
on 


4 
2 -BYTE ahi 


005307 eoothe 004411 047101 -ASCII AND ROTATE FULLY CLOCKWISE\ 


04550 
507 005344 015 012 -BYTE 15,12 
508 005346 aah 042103 020111 ASCII \MNCDI (DIGITAL IN) SET "DATA’’ SWITCH TO THE ‘'* POSITION\ 


509 005436 015 012 BYTE 15,12 
510 005440 046123 020125 004460 -ASCII \SLU 0 INSTALL *‘SLU TEST CONNECTOR’\ 


5470 7116 
005476 041505 047524 021122 
1 005504 015 org BYTE 15,12 
2 $3308 Sheles 020125 004461 -ASCII \SLU 1 INSTALL *‘SLU TEST CONNECTOR’ 


005544 

3 005552 015 012 -BYTE 15,12 

4 005554 046123 ores; post -ASCII \SLU 2 INSTALL *‘SLU TEST CONNECTOR’ 
005570 046101 020114 0514 
005576 052514 052040 0515 


MA INDE C-11-CVMNF -8 MINC=11 OPTION SIZER PROGRAM MACY11 30G(1063) O8-AUG-79 10:51 PAGE 13-3 


CVMNFB.P11 08-AUG-79 10:40 END OF PASS ROUTINE 


515 005620 15 012 «BYTE 15,12,1 
104 


5,12, 
-ASCIZ \DEPRES 


027131 


A KEY ON THE CONSOLE TERMINAL WHEN READY. 


\ 


SEQ 0027 
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-SBTTL TTY INPUT ROUTINE 


5 RREAERAEAEKERAEAAEEREERAAEAERERKEEARRERARAAAEERAERRAREAEKEHEEKREREERERH 


; ;NUMBER OF ens IN QUEUE 
zz TTY KEYBOARD QUEUE 


:*TK INITIALIZE ROUTINE 
:*THIS ROUTINE WILL INITIALIZE THE TTY KEYBOARD INPUT QUEUE 
*SETUP THE INTERRUPT VECTOR AND TURN ON THE KEYBOARD INTERRUPT 


s*CALL: 

* J PC ,STKINT 

** 

$TKINT: STKCNT ::CLEAR COUNT OF ITEMS IN QUEUE 
005710 MO WSTKOSRT ,S$TKQIN ::MOVE THE STARTING ADDRESS OF THE 
005712 STKQIN,$TKQOUT ::QUEUE INTO THE INPUT & OUTPUT POINTERS. 
000060 WSTKSRV, @ATKVEC SHINITIALIZE THE KEYBOARD VECTOR 
000062 MOV #200, @ATKVEC+2 LEVEL 4 
as TZ CLEAR DONE FLAG 


TKB 
173122 #100, a$TKS + sENABLE T Y KEYBOARD INTERRUPT 
PC ; ;RETURN t0 CALLER 





:*TK SERVICE ROUTINE 

3*THIS ROUTINE WILL SERVICE THE TTY KEYBOARD INTERRUPT 

:*BY READING THE CHARACTER FROM THE INPUT BUFFER AND PUTTING 

:*1T IN THE QUEUE. 

:*IF THE CHARACTER IS A "CONTROL=C*' (*C) STKINT IS CALLED AND 

; *UPON RETURN EXIT IS MADE TO THE ‘‘CONTROL-C*’ RESTART ADDRESS (BEGIN) 


173116 : @$TKB,-(SP) ::PICKUP THE CHARACTER 
177600 BIC #°C177, (SP) ::STRIP THE JUNK 
(SP) #3 :1S IT uA CONTROL C? 


F 
,SCNTLC ZETYPE A yh ee (*0) 
PC ,STKINT KE YBOAR 
(SP)+ 
BEGIN :2CONTROL C RESTART 
ize+ SORE e215 THE QUEUE FULL? 


:BRANCH IF 
77RING THE TTY BELL 
<oEL EON CHARACTER OFF OF STACK 


ee :1S IT a total 


: :DISABLE TTY ae tare INTERRUPTS 
7 CLEAN aos OFF STA 
7:WAIT FOR A CHAR 
31$ 23L OP UNTIL ITS THERE 
a$TkKB,-(SP) :2GET THE CHARACTER 


Nee Ne ee et es a es a ee ee Se a es es ee ee ee a ee ee ee ee ae ee ae a ee ae a ee ae a ee es es oe a ae So a ae es 
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006126 
006132 
006136 
006140 
006146 
006150 
006154 
006160 
006162 
006166 
006170 
006174 


006204 
006212 
006214 
006222 


MINC=11 OPTION 


177600 
000021 


172776 


005754 
005710 


D 
SIZER PROGRAM MACY11 306(1063) 
TTY INPUT ROUTINE 


PUES (SP) 
(SP)+,#21 
31$ 

#100,a$TKS 


STKCNT 
(SP) ,4#140 


(SP) #175 

4$ 

#40, (SP) 

(SP) +, a$TKQIN 
$TKOIN 

STKOQIN, #STKQEND 


53 #STKQSRT ,STKQIN 


-DSABL LSB 


MmARAAAAAAASLASALSALA SALES LASS S| 


O08-AUG-79 10:51 PAGE 14-1 
7 3MAKE_IT 7-B1T wy 
ri IT bi eh a 
:REENABLE TTY KEYBOARD INTERRUPTS 


RETURN 
£3 COUNT THIS CHARACTER 
S_IT UPPER CASE? 


:7BRANCH IF YES 
HIS Ad, SPECIAL CHAR? 
IT I 
; UPDATE THE POINTER 


2360 OFF THE END? 
BRANCH _IF NO 

::RESET THE POINTER 
;RETURN 


RAAAAAEAKAAEAERAKERERAAEEREEKEKEKKEEE 


{THIS \ satathctan WILL INPUT A SINGLE CHARACTER FROM THE TTY 


>*CALL 

:e RDCHR 

ded RETURN HERE 
Z8 


SRDCHR: (SP) ,=(SP) 
MO ag)" 2(SP) 


-(SP 
7o48.~(SP) 
STKCNT 
| 


$TK 

35 1KQOUT, 4(SP) 
$TKQOUT 

$TKQOUT ,#STKQEND 


#STKQSRT, $TKQOUT’ 
2s: 


SERRA AAA AAA EREERARERRRE 


22GET A CHARACTER FROM THE QUEUE 
CHARACTER IS ON THE STACK 
7:WITH PARITY BIT STRIPPED OFF 


: PUSH. DOWN THE PC AND 

ZIGET READY FOR A CHARACTER 
:PUT NEW PS ON STACK 

: PUT NEW PC ON STACK 
POP NEW PC AND PS 


3;WAIT ON A CHARACTER 
; ;DECREMENT THE COUNTER 
T ONE CHARACTER 


:ZUPDATE THE POINTER 
-igbID IT GO OFF OF THE END? 


H 
“RESET THE POINTER 
is TURN 


RAERAAAARARARAEARAAARAARAAAEREREERERE 


at ROUTINE WILL INPUT A STRING FROM THE TTY 
** HY 


RDLIN 
RETURN HERE 
or al 


#STTYIN,R3 
#STTYINe 32. .R3 


22 INPUT A STRING FROM THE TTY 
ADDRESS OF FIRST CHARACTER WILL BE ’ THE STACK 
77 TERMINATOR WILL BE A BYTE OF ALL O'S 


i SAVE _R3 
£2 CLEAR THE RUBOUT KEY 
T ADDRESS 
> BUFFER FULL? 





E 
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BLOS 4$ 37BR IF YES 
RDCHR 33 AD ONE CHARACTER FROM THE TTY 
MOVB (SP)+, (R3) Fj CTER 
000177 : #177, (R3) 
5$ 
(SP) 
BNE 6$ 
000134 006546 MOVB #'\,9$ 
54 9S 
177777 ze - (SP) 
006550 agmatine oF oes 
006546 MOVB de :iSETUP TO TYPEOUT THE DELETED CHAR. 


006546 GO T 
7:G0 READ ANOTHER CHAR. 
se KEY SET? 


PE A NBACK SLASH 


ahha THE RUBOUT KEY 
21S a A CTRL U? 


: TYPE A CONTROL ‘U"’ 


oO 
=i 
el 
uw 
oa 


g 
=—~———O 


=889x=22 
Vasoue 


g 
NEw 


o— 
— wa 
vir eens 
YSNS 
WA — NNOMWWN 


— +3 sO 

wesse ess 
SEAS YRSWENS 
oa— Foals ~ 


Suse 
So 


PE STRING 
3 Oe Ate ANOTHER CHACTER 


i CLEAR THE BUFFER AND LOOP 
ECHO THE CHARACTER 


: : ¢ CHECK FOR RETURN 


EED 
T KEY FROM THE STACK 


TORE R 
;;ADJUST THE STACK AND PUT ADDRESS OF THE 
( tt FIRST ASCII CHARACTER ON IT 
#STTYIN, 4(SP) 
T 7 RETURN 
9$: 0 72 STORAGE FOR ASCII CHAR. TO TYPE 
77 TERMINAT 
STTYIN: . f s RESERVE 32. BYTES FOR TTY INPUT 
SBELL: <207><377><377> ;;CODE FOR BELL 
000 : /*C/<15><12> 7 CONTROL ‘‘C'’ 
000012 : ASC /*U/<15><12> 7: CONTROL ‘U"’ 
: .ASC /*G/<15><12> : CONTROL ‘'G’’ 
051127 $MSwWR: SC <15><12>/SWR = / 


020127 $6 / NEW = 


=] 

w 

port eng" 
COMMUN 


ee ed ee a ae ee ee ee ee . 
N 
Ww 
— 


a i Bk a kk ak td = ot ot SF 2 = 2 2 2 SI Ss SS os SS SY SS oS 
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E 
§ 


; 


cy 


mee eg th nc “ss 2 ts ts i ft U 


ee ee ee ee ee ee ee eae, ten ean en, a a, ee ae, ae ee, ee, ae ae a a ae ae ea a a a ee a ae a a a el a et te te ee A 
eee ee Re a a a a a a a a  _ ait a 
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Pl 08-AUG-79 10:40 Y INPUT ROUTINE SEQ 0031 
006656 EVEN 
.SBTTL TYPE ROUTINE 
FF RRR AAA AAAEREAAEAARREREREERAERERAAARRAARRERARARARERARERREREHEEE 
+ *ROUT INE TO TYPE ASCIZ hen MESSAGE MUST TERMINATE WITH A 0 if 
+ * THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED 
* *NOTE1: SNULL CONTAINS THE CHARACTER ” BE USED AS THE FILLER CHARACTER. 
> *NOTE2: SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
;*NOTES: SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 
** 
3*CALL: 
:*1) USING A TRAP INSTRUCTION 
<SOR TYPE »MESADR ;zMESADR IS FIRST ADDRESS OF AN ASCIZ STRING 
8 TYPE 
3* ME SADR 
006656 105737 001157 $TYPE: TSTB STPFLG s2i$ ye A TERMINAL? 
006662 100002 BPL 1$ ;7BR IF 
006664 HALT 7 7HALT HERE IF NO TERMINAL 
BR 3$ 2 sLEAV vE 
010046 18: MOV RO,-(SP) ; SAVE RO 
006672 017600 000002 MOV a2(SP) ,RO :GET ADDRESS A 4 ASCIZ STRING 
006676 122737 000001 001204 CMPB #APTENV, SENV 7 7RUNNING IN 
001011 BNE 62$ 3NO,GO CHECK Moon APT CONSOLE 
132737 000100 001205 B1TB #APT SPOOL , SENVM +: SPOOL MESSAGE TO APT 
006714 001405 BEQ 62$ 72NO,GO CHECK FOR CONSOLE 
006716 010037 006726 MOV RO,61$ 3: SETUP MESSAGE —s FOR APT 
006722 004737 007674 JSR PC, SATY3 : ¢ SPOOL MESSAGE T 
006726 000000 61$: -WORD 0 7 7MESSAGE ADDRESS. 
006730 132737 000040 001205 62$: B1TB #APTCSUP,.SENVM ;;APT CONSOLE SUPPRESSED 
006736 001003 BNE 60$ ::YES, SKIP TYPE OUT 
006740 112046 23: MOVB (RO) +,-(SP) : PUSH CHARACTER TO BE TYPED ONTO STACK 
006742 001005 BNE 4$ BR IF IT ISN'T THE TERMINATOR 
006744 005726 TST (SP)+ STIR TERMINATOR POP IT OFF THE STACK 
006746 012600 60$: MOV (SP)+,RO : ;RESTORE RO 
750 062716 000002 3$: ADD #2, (SP) : ADJUST RETURN PC 
006754 000002 RTI sé 
006756 122716 000011 4$: CMPB #HT, (SP) ; BRANCH IF <HT> 
006762 001430 BEQ 8$ 
006764 122716 000200 CMPB #CRLF , (SP) ; BRANCH IF NOT <CRLF> 
006770 001006 BNE 5$ 
006772 005726 TST (SP) + 77POP <CR><LF> EQUIV 
006774 104401 TYPE 7 TYPE A CR AND LF 
006776 001161 SCRLF 
007000 105037 007134 CLRB SCHARCNT 7: CLEAR gen he. al 
007006 000755 BR 2s :;GET NEXT C 
007006 004737 007070 S$: JSR PC .STYPEC 3:;G0 TYPE THIS CHARA ACTER 
007012 123726 001156 6$: CMPB SFILLC, (SP)+ :7:1S IT TIME FOR esuuee CHARS. ? 
007016 001350 BNE 2s 72 1F NO GO GET NEXT C 
20 015746 001154 MOV SNULL , ~ (SP) 7:GET # OF FILLER CHARS. “NEEDED 
7 AND ne NULL CHAR. 
007024 105366 000001 7$: DECB 1(SP) 7; DOES A NULL NEED TO BE TYPED? 
007030 002770 BLT 6$ ;7BR IF NO--GO POP THE NULL OFF OF STACK 
007032 004737 007070 JSR PC ,STYPEC 3:60 TYPE A NULL 
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007036 
007042 


112716 
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MINC=11 


P11 08-AUG-79 10:40 
105337 
000770 


007134 


172054 


000002 
000015 


007134 
000012 


SIZER PROGRAM 


TYPE ROUTINE 
DECB 
BR 


HORIZONTAL TAB 


8$: 
9$: 


1$: 


INCB 
SCHARCNT : . WORD 


$TYPEX: RTS 


MACY11 306(1063) 


SCHARCNT 
7$ 


PROCESSOR 
a’ ,(SP) 
PC, $TYPEC 
#7, $CHARCNT 
9$ 

(SP) + 

2$ 

STYPEC 
2(SP) ,a$TPB 
#CR,2(SP) 
1$ 

$ 

ALF, 2(sP) 
$TYPE 

(POs 


0 
PC 


O08-AUG=79 10:51 PAGE 14-4 


+ #D0 NOT COUNT AS A COUNT 
oOoP 


ire ks pat WITH SPACE 
oh bin I PACE 
i ee IF NOT AT 
‘POP SPACE OFF STACK 
3;GET NEXT CHARACTER 
;;WAIT UNTIL PRINTER IS READY 


CHAR TO BE TYPED INTO DATA REG. 


LOAD 

HIS CHARACTER A CARRIAGE RETURN? 
BRANCH IF NO 

i YES=“CLEAR CHARACTER COUNT 


31S CHARACTER A LINE FEED? 

3; ;BRANCH IF YES 

heed THE CHARACTER 
CHARACTER COUNT STORAGE 


SEQ 0032 





@ 
~~ 


ee Ne Ne et ee ee et Ne ee ee ee ee ee ee es ee ee ee ee ee ee ee ee ee ee ee es ae a ee te es a es a Se ee ee we wi we we 2 
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-SBTTL BINARY TO OCTAL (ASCII) AND TYPE 


OTT TIT Titi titi titi ti tiiititititititiiiitiiiiiiiiiiiiiiitiii ty, 

SRTHIS ROUTINE IS USED TO — A 16-BI1T BINARY NUMBER TO A 6-DIGIT 
;*OCTAL (ASCII) NUMBER AND TYPE IT 

i #$TYPOS---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 


7*C 
3* MOV NUM, -(SP) ;NUMBER TO BE TYPED 
:* TYPOS SECALL FOR TYPEOUT 
3* -BYTE N ;iN=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 
:* “BYTE M 77M=1 OR O 
st 321=TYPE LEADING ZEROS 
:* 3; 0=SUPPRESS LEADING ZEROS 
: SSTYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
;*$TYPOS OR $TYPOC 
> *CALL: 
3* MOV NUM , = (SP) ; NUMBER TO BE TYPED 
s* TYPON :z;CALL FOR TYPEOUT 
** 
a HERE FOR TYPEOUT OF A 16 BIT NUMBER 
** : 
3* MOV NUM, = (SP) ; ;NUMBER TO BE TYPED 
3* TYPOC 7 CALL FOR TYPEOUT 
007140 017646 000000 STYPOS: MOV a(SP) ,-(SP) 7zPICKUP THE MODE 
007144 116637 000001 007363 MOVB 1(SP) ,SOF ILL ;Z;LOAD ZERO FILL SWITCH 
007152 112637 007365 MOVB (SP)+ * SOMODE +1 : NUMBER OF DIGITS TO TYPE 
007156 062716 000002 ADD #2, (SP) ; ADJUST RETURN ADDRESS 
007162 000406 BR STYPON 
007164 112737 000001 007363 S$TYPOC: MOVB #1,S0F ILL 3:SET THE ZERO FILL SWITCH 
007172 112737 000006 007365 MOVB #6, SOMODE +1 ee Set FOR SIX(6) DIGITS 
007200 112737 000005 007362 $TYPON: MOVB #5, SOCNT SET THE ITERATION COUNT 
007206 010346 MOV R3,-(SP) i: RB 
007210 010446 MOV R4,-(SP) 77 SAVE R4 
007212 010546 MOV R5,-(SP) 77 SAVE RS 
007214 113704 007365 MOVB SOMODE +124 7:GET THE NUMBER OF DIGITS TO TYPE 
007220 005404 NEG R4 
007222 062704 000006 ADD #6,R4 7; SUBTRACT IT FOR MAX. ALLOWED 
007226 110437 007364 MOVB R4 , SOMODE ts IT FOR USE 
007232 113704 007363 MOVB SOFILL RS 77GET THE ZERO FILL SWITCH 
7236 016605 000012 12(SP), *RS s3 UP THE ray NUMBER 
007242 5003 CLR Rs 
006105 1$ ROL RS 
007246 000404 BR 3$ 
007250 006105 2$: ROL RS 
007252 006105 ROL R5 
7254 006105 ROL R5 
007256 010503 MOV R5,R3 
007260 006103 3$: ROL Re 
007262 105337 007364 DECB SOMODE 
7266 100016 BPL 7$ 
007270 042703 177770 BIC #177770,R3 
097274 001002 BNE 4$ 
007276 005704 TST R4 
001403 BEQ 5$ 





~CVMNF -8 MINC=11 OPTION SIZER PROGRAM MACY11 306(106 ) O8-AUG-79 10:51 PAGE 15-1 
08-AUG-79 10:40 BINARY TO OCTAL (ASCII) AND TYPE 


4$: R4 ;;DON'T SUPPRESS ANYMORE 0'S 
7eMAKE THIS DIGIT ASCII 

5$: 3MAKE ASCII IF NOT ALREADY 
33SAVE FOR TYPING 
2360 he THIS DIGIT 


T 
:3BR +4 MORE TO DO 
F DONE 
33 INSURE LAST oie te a A BLANK 


7$: 


; R3 
3SET THE STACK FOR RETURNING 


7 RETURN 
8$: sz STORAGE FOR ASCII DIGIT 


SOCNT: .BYTE 

SOF ILL: -BYTE ITCH 

SOMODE: .WORD 0 R OF DIGITS TO TYPE 

.SBTTL CONVERT BINARY TO DECIMAL’ "AND TYPE ROUTINE 
ERARAREREARRRRRERRERR ERE RE RRA RAERRERERRERRARRERERERRRR RRR REE 
:RTHIS ROUTINE IS USED TO CHANGE A 16-B1T BINARY NUMBER TO A 5-DIGIT 
[*SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE 
7 *NUMBER IS POSITIVE OR gig hy A SPACE OR A MINUS SIGN WILL BE TYPED 
> *BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 

; sREPLACED WITH SPACES. 


MOV NUM, = (SP) 73PUT_THE BINARY NUMBER ON THE STACK 
TYPDS 3:GO TO THE ROUTINE 
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as sk st tt es os sh a A) 
Oe dh a a a hh A a 


ue 
BER2Z 


4— 


STACK 
BLANK SWITCH AND SIGN 
T NUMBER 


ja 


BacaRegagyags 
3 


POINTER 
FIRST CHARACTER TO A BLANK 
D NUMBER 


BQOVE 
a ee 
=2_3_5 

a a 

22a 

on 

4 

a 


ONS TANT 


RRA RRR RR RAR RRR AARAA 
kk kd et ad ed ed od 
a) 

i 
» 


aae*2" 5S 


23 “FALL THROUGH IF 





R 


i kk ak ak | LA st ad tt ot tt st tt 
NN 0 we eee 


SSSSSSSSSSSSSSSISSSSIIVIHSSSSSSSSSAGGGGSSSSSSSS33SSSSS335 


ee ee ee a ee we ee ee dd ed td ws a fA) = 
ee Ne et ee ee ee ee ee ee ee ee ee ee es ee ee ee eae le le ee 
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-P11-- 08=AUG-79 10:40 CONVERT BINARY 1 bec IMAL AND TYPE ROUTINE SEQ 0035 
007460 105716 TSTB = (SP) i STILL DOING LEADING 0'S? 
007462 100407 BM1 7$ ::BR IF YES 
007464 106316 5$: ASLB (SP) 7 iMSD? 
007466 105003 BCC 6$ +:BR IF NO 
007470 116663 000001 177777 MOVB  1(SP),-1(R3) =: : YES==SET THE SIGN 
007476 032702 000060 6S: BIS #'0,R2 S:MAKE THE BCD DIGIT ASCII 
007502 052702 000040 7$: BIS #' “RO SZMAKE IT A SPACE IF NOT ALREADY A DIGIT 
7 11022 MOVB —R2, (R3)+ t:PUT THIS CHARACTER IN THE OUTPUT BUFFER 
007510 20 TST (RO)+ ::JUST INCREMENT I 
7512 020027 000010 CMP RO,#10 :3CHECK THE TABLE INDEX 
007516 002746 2$ 7:60 DO THE NEXT DIGIT 
2 BGT 8$ 3:60 
007522 010502 MOV R5,R2 S:GET T 
007524 764 BR 6$ +:GO CHANGE TO ASCII 
7526 105726 8$: TSTB =. (SP) + tiWAS THE LSD THE FIRST NON-ZERO? 
007530 100003 BPI. +:BR IF NO 
007532 116663 177777 177776 MOVB  =1(SP),=2(R3) ‘Oi seeser THE SIGN FOR TYPING 
007540 105013 CLRB T:SET THE TERM 
007542 012605 MOV (SP)+,R5 ::POP STACK INTO ORS 
7544 012603 MOV (SP)+-R3 7:POP STACK INTO R3 
007546 012602 MOV (SP)+-.R2 ::POP STACK INTO R2 
7550 012601 MOV (SP)+-R1 t:POP STACK INTO R1 
007552 012600 MOV (SP) +->RO t:POP STACK INTO RO 
7554 104401 007602 TYPE $DBLK +:=NOW TYPE THE NUMBER 
016666 000002 000004 MOV 3(SP) .4(SP) ‘ADJUST THE STACK 
7566 012616 MOV (SP)+, (SP) 
007570 RTI ;:RETURN TO USER 
7572 02 $DTBL: 10000. 
007574 001750 1000. 
007576 000144 100. 
7600 000012 10. 
607602 000004 $DBLK: .BLKW 4 
.SBTTL BINARY TO ASCII AND TYPE ROUTINE 
FRRAARARAARAAERERAAEAARERERAEEREERERREEEEREREREEREREREARERREREEE 
tSTHIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 16-B1T 
j SBINARY-ASCII NUMBER AND TYPE IT. 
:*CALL: 
* MOV NUMBER.-(SP) | ;;NUMBER TO BE TYPED 
te TYPBN t:TYPE IT 
007612 010146 STYPBN: MOV R1,-(SP) £2 SAVE R1 ON THE STACK 
007614 016601 000006 MOV 6(§P),R1 THE INPUT NUMBER 
007 900261 SEC S:SET "'C’’ SO CAN KEEP TRACK OF THE NUMBER OF BITS 
007 112737 000060 007664 15: MOVB = #' "0, SBN tISET CHARACTER TO AN ASCII ‘O"’. 
007 006101 ROL R1 ::GET THIS BIT 
007632 001406 BEQ 2$ 3: 
007634 105537 007664 ADCB ~=s SBIN + :NO==S Ser THE CHARACTER EQUAL TO THIS BIT 
7 104401 007664 TYPE  ,$BIN ::G0 TYPE THIS BIT 
007644 41 CLC [CLEAR "'C’’ SO CAN KEEP TRACK OF BITS 
007646 000765 BR 1$ 3:60 DO THE NEXT BIT 
0076 912601 2s: MOV (SP)+,R1 [:POP THE STACK INTO R1 
007652 016666 2 900004 MOV 2(SP).4(SP) SSADJUST THE STACK 
7 12616 MOV (SP)+, (SP) 
007662 002 RTI ;;RETURN TO USER 
007664 000 $BIN: .BYTE 0.0 STORAGE FOR ASCII CHAR. AND TERMINATOR 
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CVMNFB.P11 08-AUG-79 10:40 T COMMUNICATIONS ROUTINE 


-SBTTL APT COMMUNICATIONS ROUTINE 


RRAAARAAAAERAAAAEAAAARARARAAKEKERAERAARAEEAEAAREARAREAREKRERARRKEKEEE 
010132 $ATY1: MOVB  #1,$FFLG 7270 REPORT FATAL ERROR 
010130 : MOVB #1. SMFLG 3:70 TYPE A MESSAGE 


BR SATYC 
010132 : #1,SFFLG 3;TO ONLY REPORT FATAL ERROR 


RO,-(SP) + PUSH RO ON STACK 
R1,=(SP) ;PUSH R1_ON STACK 
SMFLG eat we A MESSAGE? 


#APTENV, SENV 


TURN ADDR. 
z2SEE IF “bone ui" LAST XMISSION? 


7;PUT ADDR IN MAILBOX 
:3FIND END OF MESSAGE 


3;SUB START OF MESSAGE 
32GET MESSAGE LNGTH IN WORDS 
3zPUT LENGTH IN MAILBOX 
7;TELL APT TO TAKE MSG. 


72PUT MSG ADDR IN JSR LINKAGE 
7 URN ADDRESS 

::PUSH 177776 ON STACK 

[CALL TYPE MACRO 


3;SHOULD REPORT FATAL ERROR? 

i21F NOT: BR 

wT ING UNDER APT? 

: FINISHED LAST MESSAGE? 
NOT: WAIT 


oooo 
at 


eaeprna cance FERS? 


8 


“BUMP RETURN ADDR. 
r:TELL APT TO TAKE ERROR 


NESS 


CLEAR MESSAGE FLAG 
1 POP STACK INTO R1 
2 ¢POP STACK INTO RO 
RT URN 
SMFLG: 0 i 2MESSG. FLAG 
FLAG 


SLFLG: 
SFFLG: r FATAL FLAG 


ve 
apTs176=300 
APTENV=001 
APTSPOO: =100 


polo leojolejolojlojlolejolojol=) 
OCooooooo[oo 
ae ad as a st wd nt we 
a 
LNT e 


ys 


1) 
2) 
1) 
1) 
1) 
1) 
1) 
3) 
3) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
3) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
3) 
3) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 


at tte te ee a Tt Eat Le Tat hat, ate Lae, Naa, Lat Nat at Lat ht, Lt, ca, i i ce, ce, bce et, i te, tt i a i, te a i a a a a at a a i a a 





MAINDE C-11-CVMNF -8 by OPTION SIZER PROGRAM MACY11 306(106 ) Q8-AUG=79 10:51 PAGE 15-4 
CVANFB.P11 08-AUG-79 10:40 APT COMMUNICATIONS ROUTINE SEQ 0037 


1) 000040 APTCSUP=040 





MAINDEC-11-CVMAF -8 . NC-11 OPTION SIZER PROGRAM MACY11 306(106 ) 08-AUG-79 10:51 PAGE 16 
CVMNFB.P11 08-AUG-79 10:40 TRAP DECODER SEQ 0038 


-SBTTL TRAP DECODER 


[RRRRAARRERR ARERR EERE TEER EERE REE RRR ERE RRR RRR ERR ERE 

5 STHIS ad WILL oo THE LOWER BYTE OF THE ‘‘TRAP’’ INSTRUCTION 
;*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
:*OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 

:*GO TO THAT ROUTINE. 


Vo 


ee Ne ee se ee a a a a ee ae ee a ee a a eee a 


010134 010046 STRAP: MOV RO,-( 77 SAVE RO 

0101 016600 000002 MOV (SP), SRO + 3GET TRAP ADDRESS 

010142 005740 TST (RO) KUP BY 2 

010144 111000 MOVB (RO) -RO 33GET RIGHT BYTE OF TRAP 
10146 006300 ASL RO 7zPOSITION FOR INDEXING 

010150 016000 010170 MOV $STRPAD (RO) ,RO ; INDEX TO TABLE 

010154 000200 RTS RO +560 TO ROUTINE 


:;THIS IS USE TO HANDLE THE '‘GETPRI"' MACRO 


Fe ae ae ae tn hd a a an, ae ae et et a a, a ce a a a i a a * A 


WAWUWIWGI NWI 2 Ss 2 tS 


010156 011646 $STRAP2: MOV (SP) ,=(SP) ::MOVE THE PC DOWN 
010160 016666 000004 000002 MOV 4(SP) ,2(SP) ::MOVE THE PSwW DOWN 
010166 000002 RTI TZRESTORE THE PSW 
.SBTTL TRAP TABLE 
*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
:*BY THE 'TRAP’’ INSTRUCTION. 
; ROUT INE 
010170 010156 $TRPAD: .WORD $TRAP2 
(3) 010172 006656 $TYPE ;;CALL=TYPE TRAP+1(104401) TTY TYPEOUT ROUTINE 
(3) 010174 007164 STYPOC ::CALL=TYPOC TRAP+#2(104402) TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
(3) 010176 007140 $TYPOS ::CALL=TYPOS  TRAP+3(104403) TYPE OCTAL NUMBER (NO LEADING ZEROS) 
(3) 007200 STYPON ::CALL=TYPON  TRAP+4(104404) TYPE OCTAL NUMBER (AS PER LAST CALL) 
(3) 010202 007366 STYPDS ::CALL=TYPDS | TRAP+5(104405) TYPE DECIMAL NUMBER (WITH SIGN) 
(3) 010204 007612 STYPBN ::CALL=TYPBN TRAP+6(104406) TYPE BINARY (ASCII) NUMBER 
(1) 
(3) 010206 006224 SRDCHR ;;:CALL=RDCHR _TRAP+7(104407) TTY TYPEIN CHARACTER ROUTINE 
> 010210 006314 SRDLIN ::CALL=RDLIN TRAP+10(104410) TTY TYPEIN STRING ROUTINE 
531 ;MEMORY USAGE MAP BLOCK 
532 010212 000100 ADRPOK: .BLKW 100 
333 010412 000000 ADRTOP: 0 :LAST LOCATION USED BY PROGRAM 
$35 000001 END 


N 
MAINDEC-11=CVMNF -8 oy OPTION SIZER PROGRAM MACY11 30G(1065) O8-AUG=79 10:51 PAGE 17 
CVMNFB.P11 08-AUG-79 10:40 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0039 


9i* 148 
152 182 


4754 


ADCNT 


ae 


+ 


ADD WS 
ADDWS 
ADDW6 
ADDW7 
ADDW8 
ADDW9 
ADEVC 
ADE VA 


Heke 


i 
sEEEeESEEseE 
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MAINDE C-11-CVMNF -8 MINC=11 OPTION SIZER PROGRAM MACY11 306(1063) 08-AUG=79 10:51 PAGE 17-1 
CVANFB.P11 08-AUG-79 10:40 CROSS REFERENCE TABLE == USER SYMBOLS 


4 


Pa noe 
<< NPorornonooeror 


4 
3 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
3 
1 
1 
1 
5 


SSS SSS ES SSS SEES SEE EES 


214* 242* 263 266* 270* 325* 
FIXVCT 3306 
FLAGAD 001316 301 326* 








MA INDE C-11-CVMNF -8 


CVMNFB.P11 
FLAGMP 001314 
GNS = eeeeee 
T = 00001 
003224 
IOTVEC= 000020 
K 001260 
KWCNT 001272 
KWGO 003474 
KWOF F 001246 
KWPRI 004042 
LF = 000012 
LOOP 002062 
MDASH 004207 
MD IF 004232 


004251 
MSE 004213 
NBEXT 001310 
NIPRI 004141 
NOPRI 004112 
OUTADR 001312 
OUTBIN 002554 
PIRQ = 177772 
PIRQVE= 000240 
PRO = 000000 
PR1 = 000040 
PR2 = 000100 
PR3 = 000140 
PR4 = 0002 
PRS = 000240 
PR6 = 000 
PR7 = 000340 
PS = 177776 
PSW = 177776 
PWRVEC= 000024 
QUESAD 004262 
QUESMP 004373 
RDCHR = 104407 
IN = 104410 
VEC= 000010 
004: 
SPACE1 004205 
SSPACE 004202 
STACK = 001100 
STKLMT= 177774 
SWR 001140 
SWREG 001320 
SwO. = 000001 
swOO = 000001 
SswO1 = 000002 
SWO2 = 000004 
SwO3 = 000010 
Sw04 = 000020 
SWwOS = 000040 
SwO6 = 000100 
swO7 = 000200 


08-AUG-79 10: 


134 


SM] Nee 


eee ERR HFS BES=Ce eee eee 


ee OPTION SIZER 


126* 


89« 
143 


4744 
125 


120 


4834 


PROGRAM MACY11 306 (F063) 
CROSS REFERENCE TABLE == USER S 


203 206* 
139 

178 

1294 254 
313 324 
239* 

238 2494 
521 5294 


08-AUG-79 
YMBOL S 


10:51 


PAGE 17-2 


SEQ 0041 


MA INDE C-11-CVMNF -8 
08-AUG-79 10:40 


CVANFB.P11 
swos = 00 
Swo9 = 001000 
Swi = 2 
Swi0 = 002000 
SW11 = 004000 
SW1i2 = 010000 
SW13 = 020000 
SW14 = 040000 
Swi5 = 100000 
SW2 = 000004 
SWw3 = 000010 
SW4 = 000020 
SWS = 000040 
SW6 = 000100 
Sw7 = 000200 
SWB = 000400 
Sw9 = 001000 
TBITVE= 000014 
TCHANL 003620 
TEMP 001306 
TEST 002700 
TKVEC = 000060 
TPVEC = 000064 
TRAPVE= 000034 
TRTO 003304 
TRTVEC= 14 
TYPBN = 104406 
TYPDS = 104405 
TYPE = 104401 
TYPOC = 104402 
TYPON = 404 
TYPOS = 104403 
ADR 001302 
VECT 001304 
VTPRI 004165 
THD 001 
SASTAT= *xeae% YU 
SATYC 007712 
SATY1 7 
SATY3 007674 
SATYS 007704 
SAUTOB 1134 
SBASE 001240 
$8D 001122 
SBDDAT 001126 
SBELL 006610 
$BIN 007 
SCDW1 001244 
SCHARC 71 
KSWR= weenee 


$C 

SCMTAG 001100 
$CM3 = 000000 
SCNTLC 006614 


— WA 


WG 
OWN WW? 9 SN NO PP Ss 2 Ss SS Se es 


PRESSES e Bee eee eR eeR eR eES ¢ 


—Mn 


267 
432 


154 
337 
119 
254 
458 


187 
297 


dD 4 
MINC-11 OPTION SIZER PROGRAM MACY11 30G6(1063) 
CROSS REFERENCE TABLE -- USER SYMBOLS 


289 
438 


08-AUG-79 


2584 


309* 338* 391* 
467* 468 


10:51 


PAGE 17-3 
181 185 
295 318 319 
525 526 
451 5294 
397 401* 402* 


207 
321 


408* 


SEO 0042 


231 
428 


409* 


MAINDEC-11=CVMANF -8 MINC=11 OPTION SIZER PROGRAM MACY11 306(1063) Cpa 10:51 PAGE 17-4 


CVMANFB.P11 08-AUG-79 10:40 CROSS REFERENCE TABLE == USER SYMBO SEQ 0043 
SCNTLG 006626 S214 
SCNTLU 006621 5214 
SCPUOP 001212 42a 
SCRLF 001161 42a 171 231 243 285 318 428 521 522 
SDBLK 007602 5254 
SDEVCT 001174 42" 
001242 4on 
002654 2544 
SOTBL 007572 5254 
SENDAD 002644 39 2544 
SENDCT 002612 81 2544 
002 2544 
SENULL 002660 2544 
SENV 001204 42a" 522 527 
SENVM = 001205 42" 81 103 199 522 527 
SEOP 002566 205 244 2544 
SEOPCT 002604 81* 2544 
SERFLG 001103 424 
001115 424 
SERRPC 001116 424 
SERRTB 001246 42a 
SERTTL 001112 424 
ABL 001204 424 
SETEND 001246 41 424 
SFATAL 001166 42 527* 
SFFLG 010132 527a* 
SFILLC 001156 42a 22 
SFILLS 001155 424 522 
001120 424 
AT 001124 42a 
SGET42 002634 2544 
SGTSWR= *xxeaen [J 2 4 
SHIBTS 001000 414 
SICNT 001104 42a 
SINTAG 001135 424 
SITEMB 001114 42a 
F 001162 42a 521 522 
SLFLG 010131 527a* 
SLPADR 001106 424 
SLPERR 001110 42a 
SMADR1 001216 bon 
SMADR2 001222 424 
SMADRS 001226 424 
SMADR4 001232 42m" 
SMAIL 001164 41 42a 81 522 
sus2 001920 ise 
SMAMS3 001224 42a 
SMAMS4 001230 42a 
SMBADR 001002 414 
SMFLG 010130 527a* 
SMNEW 4 ral 
SMSGAD 001200 424 527* 
SMSGLG 001202 424 527* 


SMSGTY 001164 42a 527* 





MA INDE C-11-CVMAF -8 


CVANFB.P11 


000040 
002656 


= *entkee 


RERRKE 


000024 
177777 
000204 


08-AUG-79 10:40 


S22 


81* 


521 
529 


529 


F 4 
MINC-11 OPTION SIZER PROGRAM MACY11 30G(1063) 08-AUG=79 10:51 PAGE 17-5 
CROSS REFERENCE TABLE == USER SYMBOLS 


254% 283 315 
522 


102 256° $21 


42 81 254 


84+ 85* 5224 527 529 


SEQ 0044 


MA INDE C-11-CVMNF -8 
CVMNFB.P11 08-AUG-79 


SVECT1 001234 
SVECT2 001236 
$$GET4= 000000 
SOFILL 007363 
° = 010414 


SASTA= weeeee 
-$x == 001000 


G 
79 Tito OPTION SIZER PROGRAM MACY11 306(1063) 


“ Cptetichd 


CROSS REFERENCE TABLE == USER SYMBOLS 


31 
5274 


324 
5328 


364 


394 


404 


10:51 


414 


PAGE 17-6 


42a 


81 


1024 


254 


SEQ 0045 


52a 


MA INDE C-11-CVMNF -8 MINC-11 OPTION SIZER PROGRAM MACY11 30G6(1063) Papal 10:51 PAGE 18 


CVMNFB.P11 08-AUG-79 10:40 CROSS REFERENCE TABLE == MACRO NAME 


ASCIZ 84 

COMMEN 134 

ENDCOM 134 

ERROR 134 

ESCAPE 134 

GETPRI 134 

GE TSWR 134 1024 
T 134 

NEWTST 134 

POP 134 525 527 

PUSH 134 525 527 

REPORT 134 

SCOPE 134 

SETPRI 134 521 

SETTRA 5294 

SETUP 134 81 

SKIP 134 308 310 446 449 453 455 457 459 463 

SLA 134 

SPACE 134 

STARS 134 39 41 42 254 §21 522 524 525 526 
SU 134 814 

TRMTRP 5294 

TYPBIN 134 

TYPDEC 134 254 

TYPNAM 134 102 

TYPNUM 134 . 

TYPOCS 134 442 451 

TYPOCT 134 

TYPTXT 134 

$$C 424 

SSCMTM 42a 

SSESCA 134 

SSNEWT 134 

SSSET 5294 

SSSETM 814 

SSSKIP 134 

~EQUAT 7# 13 

. HEADE 74 12 

. SETUP oF 77 

_ oF 

-$ACT1 104 39 

.SAPTB 104 424 

.- SAPTH 104 41 

.SAPTY 104 527 

- $CATC 7# 

-SCMTA 7a 42 

. SEOP 74 254 

. SERRO 7# 

. SERRT on 

. 84 

. 84 

. SRAND 104 

. $RDOC 104 

. SREAD 84 521 

. SSAVE 84 

$ScoP 84 


469 


527 529 


SEQ 0046 









MAINDE C-11-CVMANF -8 
CVMNFB.P11 08-AUG-79 


SWDO" oF 
- STRAP 94 529 
STYPB 526 
STYPD 104 525 
-STYPE on 522 
STYPO 84 524 


- ABS. 010414 000 OvR 


ERRORS DETECTED: 0 


CVMNFB, CVMNFB/CRF =CVMNFB 
RUN-TIME: 21 5 .7 SECONDS 
RUN~TIME RATIO: 63/27=2.2 
CORE USED: 25K (49 PAGES) 


MINC=11 OPTION SIZER PROGRAM 
10:40 CROSS REFERENCE TABLE == MACRO 





MACY11 sag Nh 


